home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 75 / 075.d81 / loadstar briefs (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  966b  |  35 lines
  1. 10 poke53281,0:poke53280,0:print"[147][159]":poke56,160:clr
  2. 20 fori=1to4:readm$(i),n$(i):next
  3. 30 data"   [198]eedback [205]achine   ",machine
  4. 34 data"  [212]ext [208]rinter 1990   ",text printer
  5. 36 data"    [204][207][193][196][211][212][193][210] [198]orms    ",loadstar forms
  6. 38 data"  [210]eturn to [204][207][193][196][211][212][193][210]  ",hello connect
  7. 40 print"     [204] [207] [193] [196] [211] [212] [193] [210]    [194] [210] [201] [197] [198] [211]"
  8. 45 print"[154]     [193] [195]ollection of [200]andy [208]rograms
  9. 47 [153]"   for the str$iscriminate (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)ser"
  10. 50 [153][163]6)"sysortantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  11. 60 [129]i[178]0[164]5:[153][163]6)"(NULL)"[163]33)"(NULL)":[130]
  12. 70 [153][163]6)"/tantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  13. 80 [151]214,22:[153]:[153]"for    (NULL)se len(NULL)(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL)for and then (NULL)val(NULL)(NULL)(NULL)(NULL)"
  14. 90 [151]214,7:[153]""
  15. 100 [129]i[178]1[164]5:[153][163]9)m$(i):[130]
  16. 110 h[178]6:k[178]1
  17. 120 [151]214,h[170]k:[153]
  18. 130 [153][163]9)"open"m$(k)"on"
  19. 140 [151]198,0
  20. 150 [161]a$:[139]a$[179][177]"on"[175]a$[179][177]""[175]a$[179][177][199](13)[167]150
  21. 160 [139]a$[178][199](13)[167]200
  22. 170 [153][163]9)""m$(k)
  23. 180 [139]a$[179][177]"on"[167]190
  24. 185 k[178]k[171]1:[139]k[179]1[167]k[178]4
  25. 187 [137]120
  26. 190 k[178]k[170]1:[139]k[177]4[167]k[178]1
  27. 195 [137]120
  28. 200 [153][163]9)""m$(k)
  29. 210 [151]214,14:[153]
  30. 220 [153]"stopload"[199](34)n$(k)[199](34)",8"
  31. 230 [153]"run"
  32. 240 [151]214,12:[153]
  33. 250 [151]631,13:[151]632,13:[151]198,2:[128]
  34. 10000 [159]15,8,15,"s0:loadstar briefs":[160]15:[148]"loadstar briefs",8:[128]
  35.